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PREFACE 


This instant provides a convenient summary of the SYMPL 
Version 1.3 language as implemented under the control of • the 
following operating systems: 

NOS 1 for the CONTROL DATA® CYBER 170 Models 171, 172, 
173, 174, and 175; CYBER 70 Models 71, 72, 73, and 74; and 
6000 Series Computer Systems 

NOS/BE 1 for the CDC® CYBER 170 Series; CYBER 70 Models 
71, 72, 73, and 74; and 6000 Series Computer Systems 

SCOPE 2 for the Control Data CYBER 170 Model 176; 
CYBER 70 Model 76; and 7600 Computer Systems 

This instant is written for a programmer familiar with the SYMPL 1 
language and the operating system under which the SYMPL 1 
compiler is operating. 

More detailed information can be found in the publications listed 
below. 


Publication 

SYMPL Version 1 
Reference Manual 

SYMPL Version 1 
User's Guide . 


Publication Number 

60496400 

60499800 


CDC manuals can be ordered from Control Data 
Literature and Distribution Services, 8001 East 
Bloomington Freeway, Minneapolis, MN 55420. 
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LANGUAGE ELEMENTS 


SYMPL CHARACTER SET 

Letters: A through Z and $ 

Digits: 0 through 9 


Marks: + 

( 


- 

) 


* 

[ 


/ 

1 


= 

< 


j 

> 


♦ • 

H 


; 

# 


y 

blank 

COMMENTS 

//string# 




string Arbitrary string of characters; semicolon and comment 
delimiter are not valid characters. 


Comments can appear anywhere except within a comment or after 
the name in a DEF declaration- 


IDENTIFIERS 

An identifier is a string of 1 through 12 letters or digits beginning 
with a letter. Programmer-defined identifiers must not duplicate 
reserved words. 
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Constant 


Decimal 

Integer 




+n.n +.n +n. +n.nE+s +.nE+s +n.E+s 

n Coefficient of decimal digits, 

E+s Exponent (D can be used 
instead of E). 

s Base 10 scale factor. 

-293 +322 

Range ID ,to 10 

Accurate to approximately 15 decimal 
digits. 


+nn 0 . . .n_ 

-12 m 


n Decimal digit. 
Range -(2^-1) to 2^-1 


Octal Integer 0 !l string n 


string String of 1 through 20 octal digits 
0 through 7. 


Hexadecimal 

Integer 



Boolean 


X"string" 

string String of 1 through 15 hexa¬ 
decimal digits D through 9 and 
A through F. 


"string" 

string String of 1 through 240 characters. 

If the character M is to appear in 
the string, it must be specified by 
two consecutive " marks. 




S"stvalue" 


stvalue Defined in STATUS declaration. 
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DECLARATIONS 


ARRAY HEADER DECLARATION 

ARRAY name [low:up, low:up, . . .] alloc(esize); 

name Identifier; optional unless in BASED ARRAY, XDEF, or 
XREF declaration. 

low:up Lower and upper array bounds; maximum of seven 
dimensions. 

alloc Allocation. 

P Parallel; first word of each entry is allocated 
contiguously followed by the second word of each 
entry, and so forth. 

S Serial; all the words of one entry are allocated 
contiguously. 

esize Number of words in array entry. 

ARRAY ITEM DECLARATION 

ITEM name type(ep,fbit,size)= [preset] , 

name type(ep,fbit,size)= [preset], . . . ; 


name Identifier. 

type Type of array item; optional. 

B Boolean 

C Character 

I Signed integer; default 

U Unsigned integer 

R Real 

S:stlist Status 

ep Word number in which item occurs; word numbering starts 

at 0. 

fbit Bit position at which item begins, 

size Item length. 

preset Initialization value; optional. Not relevant for based 
arrays. 
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BASED ARRAY DECLARATION 


BASED array-dec 

BASED BEGIN array-dec array-dec . . . END 

array-dec Full ARRAY declaration including the ARRAY header 
declaration and the ARRAY ITEM declaration. 


COMMON DECLARATION 

COMMON name; data-dec 

COMMON name; BEGIN data-dec data-dec . . . END 

name Name of common; if omitted, blank common is used. 

data-dec Declaration for a scalar, array or based array. Blank 
common cannot be initialized at load time. 

FUNCTION AS FORMAL 
PARAMETER DECLARATION 


FUNC name type; 

name Formal name of function, 

type Type of function. 

B Boolean 

C(lgth) Character with Igth characters 
I Signed integer 

U Unsigned integer 

R Real 

S Status 


60482600 A 


5 




ITEM DECLARATION 

ITEM name type=preset, name type=preset, . . . ; 

name Identifier, 
type Type of item; optional- 
B Boolean 

C(Igth) Character with Igth characters 
I Signed integer; default 

U Unsigned integer 

R Real 

S:stlist Status 

preset Initialization value; optional. 

LABEL DECLARATION 

LABEL name, name, . . . ; 
name Identifier. 

PROCEDURE AS FORMAL 
PARAMETER DECLARATION 

FPRC name; 

name Formal name of procedure. 

STATUS DECLARATION 

STATUS stlist identifier, identifier, . . . ; 
stlist Name of list. 

identifier Status value; can duplicate a reserved word. The first 
identifier is assigned a value of □. 
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STATUS SWITCH DECLARATION 


SWITCH swname:stlist labelistvalue, labehstvalue, . . . ; 


swname Name of switch. 

stlist Name of status list as declared by a STATUS 

declaration. 

label Label name. 

stvalue Status value from stlist. 


SWITCH DECLARATION 

SWITCH swname label, label, . . . ; 

swname Name of switch, 

label Label name. 


XDEF DECLARATION 

XDEF xdec 

XDEF BEGIN xdec xdec . . . END 

xdec One of the following that is to be referenced in an 
externally compiled program: 

Full data declaration for scalar, array, based array, or 
switch. 

PROC name; 

FUNC name type; 

LABEL name, name, . . . ; 


\ 
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XREF DECLARATION 

XREF xdec 

XREF BEGIN xdec xdec . . . END 

xdec Any of the following whose storage is declared with XDEF: 
Data declaration for a scalar without preset. 

Data declaration for an array without preset. 

Data declaration for a based array. 

PROC name; 

FUNC name type; 

LABEL name, name, .. . ; 

SWITCH name, name, . . . ; 
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EXECUTABLE STATEMENTS 

EXCHANGE STATEMENT 


vl == v2; 


vl, v2 One of the following: 
Scalar 

Subscripted array item 

P-function 

Bead function 


FOR STATEMENT 

FOR i=aexpl 
FOR i=aexpl 
FOR i=aexpl 
FOR i=aexpl 
FOR i-aexpl 

i 

aexpl 
aexp2 

aexp3 
statement 
bexp 

GOTO label; 

label Name of a label. 

GOTO swlist [exp] ; 
swlist Name of a switch list. 

exp Arithmetic expression whose value is an integer. 


STEP aexp2 DO statement 

STEP aexp2 UNTIL aexp3 DO statement 

WHILE bexp DO statement 

STEP aexp2 WHILE bexp DO statement 

DO statement 

Counter for loop. 

Arithmetic expression indicating initial value of i. 

Arithmetic expression indicating value to be added 
to i. 

Arithmetic expression indicating last value for i. 

Statement to be repeatedly executed. 

Boolean expression that must be TRUE for loop 
execution. 

GOTO STATEMENT 
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IF STATEMENT 

IF bexp THEN statementl 

IF bexp THEN statementl ESLE statement2 

bexp Boolean expression. 

statementl Statement executed when bexp is TRUE. 

statement2 Statement executed when bexp is FALSE. 


LABELED STATEMENT 

name: statement 


name Identifier. 

statement Any executable statement; can be a labeled statement. 


REPLACEMENT STATEMENT 

v = exp; 

v One of the following: 

Scalar 

Subscripted array item 
P-function 
Bead function 
Function name 

exp Arithmetic or relational expression. 


ID 
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RETURN STATEMENT 


RETURN; 

STOP; 

TERM 

TEST name; 

name Name of the item used 


STOP STATEMENT 

TERM STATEMENT 

TEST STATEMENT 1 

counter for the loop. 


t 


The TEST statement is used only within a FOR statement. 
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COMPILER DIRECTIVES 

$BEGIN DIRECTIVE* 

$ BEGIN 

CONTROL DIRECTIVE 

Attributes of Variables 

CONTROL attribute var, var, . . . ; 


attribute One of the following: 

OVERLAP Variable is referenced by more than one 
name. 

DISJOINT Variable is referenced by only one name. 

REACTIVE Array has overlapping subscript 

references. 

INERT Array has no overlapping subscript 

references. 

var Variable with specified attribute; if omitted, all 

subsequently declared variables are affected until 
respecified. 


Core Residence Selection 

CONTROL LEVELn name, name, . . . ; 


n Memory in which common blacks or based arrays are to 

reside. 

For CYBER 70 Model 76 and 7600 and CYBER 170 
Model 176 

1 5mall core memory 

2 Large core memory accessed directly 

3 Large core memory accessed by block transfer to 
small core memory 


t$BEGIN 


is used in conjunction with $END. 
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For CYBER 70 Models 71, 72, 73, and 74; CYBER 170 
Models 171, 172, 173, 174, and 175; and 6000 series systems 

1,2 Central memory, 

3 Extended core storage accessed by block transfer 
to central memory, 

name Name of a common block or based array. 


FOR Loop Control 


CONTROL looptype; 

looptype Type of FOR loop to be generated 

FA5TLOOP Test and branch at end of loop. 

5LOWLOOP Test and branch at beginning of 

loop. 

Compilation Option Selection 

CONTROL control-word; 


control- 

One of the following: 

word 

PACK 

Pack switch code. 


PRE5ET 

Preset items in named common. 


FTNCALL 

Turn on control statement 

F parameter. 


TRACEBACK 

Generate traceback code. 
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Conditional Compilation^ 

CONTROL condition-word constl, const2; 


condition- 

One of the following: 

ward 

IFEQ 

constl equal to const2 


IFLS 

constl less than const2 


IFLQ 

constl less than or equal to const2 


IFGR 

constl greater than const2 


IFGQ 

constl greater than or equal to const2 


IFNQ 

constl not equal to const2 

constl, 

Constants to be tested. 


const2 




Listing Control 

CONTROL control-word; 

control- One of the following: 
word 

EJECT Skip to new page 

LIST Resume listing 

NOLIST Suspend listing 

OBJLIST List object code 

Weak External 

CONTROL WEAK name, name, . . . ; 



name Name of array, based array, function, label, item, 
procedure, or switch. 



^Conditional statements must be bracketed between the CONTROL 
directive and either CONTROL FI or CONTROL ENDIF. 
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DEF DIRECTIVE 


DEF name (param,param, . . .) //character-string//; 


name 


Identifier by which character string is to be 
referenced. 


param Optional formal parameter. 

character- DEF body that is to replace references to the DEF 
string name. 


SEND DIRECTIVE 1 

$END 


^$END is used 


in conjunction with $BEGIN. 
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PROGRAM STRUCTURE 

MAIN PROGRAM 

A main program consists of a program header followed by a series of 
declarations and statements and ended by a TERM statement. 

The format of a main program header is 

PRGM name; 

name Identifier by which program is known. 


PROCEDURES 

A procedure consists of a procedure header followed by an optional 
series of declarations and the procedure body of a single or 
compound statement. 

The format of a procedure header is 

PROC name (param, param, . . .); 


name Identifier by which procedure is known, 

param Formal parameter; optional. 


Scalar 

Label 

Procedure 


Array 

Based array 
Function 


16 
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FUNCTIONS 


A function consists of a function header followed by an optional 
series of declarations and the function body of a single or compound 
statement. 

The format of a function header is 

FUNC name (param, param, . . .) type; 

name Identifier by which function is known. 

param Formal parameter; optional. 

Scalar Array 

Label Based array 

Procedure Function 

type Type of function result; optional. 

B Boolean 

I Integer; default 

U Unsigned integer 

R Real 

C(lgth) Character of length lgth 
S Status 
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ALTERNATIVE ENTRY POINTS 

ENTRY PROC name (param, param, . . 0; 

ENTRY FUNC name (param,param, . . .) type; 

name Identifier by which procedure or function is known. 

param Formal parameter; optional. 

Scalar Array 

Label Based array 

Procedure Function 

type Type of function result; optional. 

B Boolean 

I Integer; default 

U Unsigned integer 

R Real 

C(lgth) Character of length lgth 
S Status 
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EXECUTION TIME 
OUTPUT PROCEDURES 

To use the output procedures, a FORTRAN Extended main program 
must call the SYMPL program. Within the 5YMPL program, the 
output procedures must be declared as external references. 


PROCEDURE PRINT 

PRINT is used to format information to be written to the file 
OUTPUT. 

PRINT(format-string); 

format- Literal duplicating the specifications of a FORTRAN 

string format specification. 


PROCEDURE PRINTFL 

PRINTFL is used to format information to be written to a file with a 
logical file name other than OUTPUT. 

PRINTFL (format-string,file); 

format- Literal duplicating the specifications of a FORTRAN 

string format specification. 

file File on which the information is to be written, 

expressed in terms of the file information table for the 
file. 


PROCEDURE LIST 

LIST is used to specify an item or array to be printed. 
LIST(argument); 

argument Item, expression, subscripted array item, etc. whose 
value is to be printed. 


PROCEDURE ENDL 

ENDL is used to terminate an output sequence begun by PRINT or 
PRINTFL. 

ENDL; 


60482600 A 


19 



INTRINSIC FUNCTIONS 
ABS FUNCTION 

ABS(exp) 


exp Expression whose absolute value is to be returned. 
The type of argument determines the type returned. 

Argument Type Type Returned 

Real Real 

- Integer Unsigned integer 


Other 


Same as argument 
specified in call 


B FUNCTION 

B <^first,lgth^> iname 

first Arithmetic expression specifying first bit to be 
extracted. 

lgth Optional arithmetic expression specifying the number 
of bits to be extracted; default is 1. 

iname Name of scalar or array item from which bits are to be 
extracted. 


c FUNCTION 

C <\first,lgth^> iname 

first Arithmetic expression specifying the first character to 
be extracted. 

lgth Optional arithmetic expression specifying the number 
of characters to be extracted; default is 1. 

iname Name of scalar or array item from which characters 
are to be extracted. 


20 
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LOC FUNCTION 


LOC(argument) 

argument Name of any of the following: 

Scalar 

Subscripted array item 

Procedure 

Function 

Label 

Switch 

Array 

P-function 

P FUNCTION 

P^barray^> 

barray Name of a based array. 
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SYMPL CONTROL STATEMENT 


SYMPL. 


SYMPL,parameter- 

-list. 

to 

A (Abort Job 

After Errors) 

omitted 

Execute next control state¬ 
ment whether or not errors 
occurred. 


A 

Execute control statement 
after EXIT(S) control state¬ 
ment if errors occurred. 

8 (Binary Code 
File) 

omitted 

B 

Write binary output to file LGO. 


B=0 

Suppress generation of 
binary output. 


B=lfn 

Write binary output to file 
lfn. 

C (Check Switch 
Range) 

omitted 

Do not generate code to 
check range of switch 
references. 


C 

Generate code to check 
range of switch references. 

D (Pack Switches) 

omitted 

Generate one word for 
each switch. 


D 

Generate one word with 
two switch points. 

E (Compile 
$BEGIN/$END 
Statements) 

omitted 

E 

Do not compile statements 
between $BEGIN and $END. 

Compile statements 
between $BEGIN and $END. 

F (FORTRAN 
Calling 

Sequence) 

omitted 

Do not compile a word of 
all zeros at the end of 
parameter lists. 


F 

Compile a word of all zeros 
at the end of parameter 
lists. 

H (List All 

Source 

Statements) 

omitted 

List statements according 
to CONTROL NOLIST/ 

LIST statements. 


H 

List all statements. 


22 
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I(Source 

Input File) 

omitted 

Compile card images from 
file INPUT. 


I 

Compile card images from 
file COMIPLE. 


I=lfn 

Compile card images from 
file lfn. 

K (Points- 
Not-Tested) 

omitted 

Do not generate points-not- 
tested interface code. 


K 

Generate points-not-tested 
interface code and trace- 
back code. 

L (Listing File)^ 

omitted 

L 

Write source statements 
and diagnostics to file 
OUTPUT. 


L=1 

Write summary of resources 
used to file OUTPUT. 


L=0 

Suppress all listing output 
except diagnostics. 


L=lfn 

Write source statements 
and diagnostics to file lfn. 

N (Cross-Reference 
Unreferenced 
Items) 

omitted 

N 

List only referenced items 
on the cross reference map. 

List all items on the cross 
reference map. 

0 (List Object 

Code)t 

omitted 

Do not list binary object 
code. 


o 

II 

VJ 

rr 

CD 

□ 

CL 

List binary object code by 
range of source statements 
indicated. 



st Number of first state¬ 
ment; default is 0. 

end Number of last state¬ 
ment; default is last 
statement. 


0=lfn/st/ 

end 

List binary object code from 
specified statements on 


file lfn. 


^Any L, O, R, or X parameters must be concatenated together. 
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P (Preset 

Common) 

omitted 

Data items in common 
blocks are not to be 
initialized. 


P 

Initialize data items in 
common blocks according 
to preset values in the data 
declarations. 

R (List Cross- 
Reference Map)f 

omitted 

Do not list cross reference 
table and common blocks. 


R 

List cross reference table 
and common blocks on file 
OUTPUT. 

- 

R=Ifn 

List cross reference table 
and common blocks on file 
lfn. 

5 (Execution 

Library) 

omitted 

Compile LDSET tables 
with references to these 
libraries: 



SYMLIB/FORTRAN 
(NOS and NOS/BE) 

SYMIO/FORTRAN 
(SCOPE 2) 


S=0 

Suppress LDSET table 
generation. 


5=libl/ 
lib2/ . . . 

Generate LDSET tables 
with references to libraries 
lib. 

T(Syntax 

Check) 

omitted 

Check syntax and generate 
binary code. 


T 

Check syntax but do not 
generate binary code. 


Mny L, O, R, or X parameters must be concatenated together. 
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W (Single State¬ 
ment Code 
Generation) 

omitted 

Generate object code with 
multiple source statements 
intermixed. 


W 

Generate object code that 
maintains a close corre¬ 
spondence with its source 
statement. 

X (List Storage 
Map)^ 

omitted 

Do not list storage map or 
common blacks. 


X 

List storage map and 
common blocks on file 
OUTPUT. 


X=lfn 

List storage map and 
common blocks on file lfn. 

Y(Suppress 

Diagnostic 136) 

omitted 

Y 

List diagnostic 136. 

Suppress diagnostic 136 but 
take corrective action. 




tAny L, O, R, or X parameters must be concatenated together. 
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RESERVED WORDS 


ABS 

LOR 

AND 

LQ 

ARRAY 

LQV 


LS 

BASED 

LXR 

BEGIN 



NOT 

COMMON 

NQ 

CONTROL 



OR 

DEF 


DO 

PRGM 


PROC 

ELSE 


END 

RETURN 

ENTRY 


EQ 

STATUS 


STEP 

FALSE 

STOP 

FOR 

SWITCH 

FPRC 


FUNC 

TERM 


TEST 

GOTO 

THEN 

GQ 

TRUE 

GR 



UNTIL 

IF 


ITEM 

WHILE 

LABEL 

XDEF 

LAN 

XREF 

LIM 


LNO 

$BEGIN 

LOC 

$END 



m 

m 
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STANDARD CHARACTER SETS 




CDC 



ASCII 


Display 
Code 
{octal 1 

Graphic 

Hollerith 

Punch 

(026) 

External 

BCD 

Code 

Grephic 

Subset 

Punch 

(029) 

Code 

(octal) 

DO 1 

: (colonj 77 

B-2 

DO 

; (colon) 77 

B-2 

072 

01 

A 

12 1 

61 

A 

12-1 

101 

02 

B 

12-2 

62 

B 

12-2 

102 

03 

C 

12-3 

63 

C 

12-3 

103 

04 

D 

124 

64 

D 

124 

104 

05 

E 

12-5 

65 

E 

12-5 

105 

06 

F 

12-6 

66 

F 

128 

106 

07 

G 

12-7 

67 

G 

12-7 

107 

10 

H 

12-8 

70 

H 

128 

110 | 

11 

1 

12-9 

71 

1 

12-9 

111 

12 

J 

11*1 

41 

J 

11-1 

112 

T3 

K 

11-2 

42 

K 

112 

113 

14 

L 

11-3 

43 

L 

11-3 

114 

15 

M 

114 

44 

M 

114 

115 

16 

N 

11-5 

45 

N 

115 

116 

17 

O 

11-6 

46 

0 

116 

117 

20 

P 

11-7 

47 

T 

11-7 

120 

21 

Q 

11-8 

50 

□ 

118 

121 

22 

fl 

11-9 

51 

R 

118 

122 

23 

S 

0-2 

22 

S 

D-2 

123 

24 

T 

0-3 

23 

T 

0-3 

124 

25 

U 

04 

24 

U 

04 

125 

26 

V 

0-5 

25 

V 

0-5 

126 

27 

w 

0-6 

26 

w 

08 

127 

30 

X 

0-7 

27 

X 

0-7 

130 

31 

Y 

o-a 

30 

Y 

0-0 

131 

32 

z 

09 

31 

z 

0-9 

132 

33 

0 

0 

12 

0 

0 

060 

34 

1 

1 

01 


1 

061 

35 

2 

2 

02 

2 

2 

062 

36 

3 

3 

03 

3 

3 

063 

37 

4 

4 

04 

4 

4 

064 

40 

5 

5 

05 

5 

5 

065 

41 

6 

6 

06 

6 

6 

066 

42 

7 

7 

07 

7 

7 

067 

43 

B 

8 

10 

8 

8 

070 

44 

9 

9 

11 

9 

9 

071 

45 

+ 

12 

60 

+ 

128-6 

053 

46 

47 

* 

11 

11-84 

40 

54 

* 

11 

1184 

055 

052 

50 

/ 

0-1 

21 

/ 

0-1 

057 

51 

< 

08 4 

34 

{ 

128-5 

050 

52 

) 

12-84 

74 

) 

118 5 

051 

53 

S 

11-8 3 

53 ! 

S 

1183 

044 

54 


8-3 

13 

«• 

88 

075 

55 

blank 

no punch 

20 ! 

blank 

no punch 

040 

56 

, (comma) 

0-8-3 

33 

, (comma) 

08 3 

054 

57 

. (period) 

12-8*3 

73 

. (period] 

128-3 

056 

60 

— 

08 5 

36 

# 

8-3 

043 

61 

I 

87 

17 j 

l 

128-2 

133 

62 

% Tt 

08 2 

32 

1 

118 2 

135 

63 

88 

16 ; 

% 7t 

084 

045 

54 

* 

84 

14 

“ [quote] 

8-7 

042 

65 

i— 

085 

35 j 

(underline) - 

08-5 j 

137 

66 

V 

118 or 118 2 m 

52 ! 

1 

128-7 or 11-0 nT 

041 

67 

A 

08-7 

37 

& 

12 

046 

70 

I 

118 5 

55 

* (apostrophe) 

8-5 

047 

71 

4 

118-6 

56 

7 

08-7 ♦ 

077 

72 

< 

128 or 128-2* 71 

72 

< 

1284 or 12-0 1TT 

074 

73 

> 

118-7 

57 

> 

088 

076 

74 

c 

8 5 

15 

e 

B4 

100 

75 

> 

128-5 

75 

\ 

082 

134 

76 

~n 

128-6 

76 

— {circumflex) 

118-7 

136 

77 

; {semicolon) 

1287 

77 

; (semicolon) 

118-6 

073 


T Twdve zero bill at the end of s 60-bit word in a zero byte record are an end of record mark rather than 
two colons. 

TT ln installations using a 63-graphic set, display code 00 has no associated graphic or card code; display 
code 63 is the colon (B-2 punch). The % graphic and related card codes do not exist and translations 
yield a blank (55 q). 

T7 *The alternate Hollerith 1026) and ASCII (029] punches are accepted for input only. 


60482600 A 


27 
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